(define (test x y)
    (= x y))

(define (soma-2-maiores-ao-quadrado x y z)
    (define (square x) (* x x))
    (define (larger x y) (if (> x y) x y) )
    (define (smaller x y) (if (< x y) x y) )
    (+ (square (larger x y)) (square (larger (smaller x y) z)))
)
; testes, copiados do lr:

(test (soma-2-maiores-ao-quadrado 4 3 2) 25)
(test (soma-2-maiores-ao-quadrado 4 2 3) 25)
(test (soma-2-maiores-ao-quadrado 2 3 4) 25)
(test (soma-2-maiores-ao-quadrado 2 4 3) 25)
(test (soma-2-maiores-ao-quadrado 3 4 2) 25)
(test (soma-2-maiores-ao-quadrado 3 2 4) 25)
(test (soma-2-maiores-ao-quadrado 4 4 2) 32)
(test (soma-2-maiores-ao-quadrado 2 4 4) 32)
